/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / amos / AMCAFExa.lha / AMCAF_Examples / TdStars1.AMOS

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 76 31 33 34 20 |AMOS Bas|ic v134 |
|00000010| 00 00 07 28 1f 01 06 52 | 00 36 20 2a 2a 2a 2a 2a |...(...R|.6 *****|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000040| 20 43 6f 6d 6d 61 6e 64 | 73 20 75 73 65 64 3a 20 | Command|s used: |
|00000050| 00 00 29 01 06 52 00 4a | 20 2a 20 20 20 20 20 20 |..)..R.J| *      |
|00000060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 20 54 |        |     * T|
|00000080| 64 20 53 74 61 72 73 20 | 42 61 6e 6b 20 20 20 20 |d Stars |Bank    |
|00000090| 20 20 54 64 20 53 74 61 | 72 73 20 4f 72 69 67 69 |  Td Sta|rs Origi|
|000000a0| 6e 20 00 00 2a 01 06 52 | 00 4c 20 2a 20 20 20 20 |n ..*..R|.L *    |
|000000b0| 20 20 20 20 20 20 20 41 | 6d 63 61 66 20 45 78 61 |       A|mcaf Exa|
|000000c0| 6d 70 6c 65 73 20 20 20 | 20 20 20 20 20 20 20 2a |mples   |       *|
|000000d0| 20 54 64 20 53 74 61 72 | 73 20 4c 69 6d 69 74 20 | Td Star|s Limit |
|000000e0| 20 20 20 20 54 64 20 53 | 74 61 72 73 20 44 6f 75 |    Td S|tars Dou|
|000000f0| 62 6c 65 20 44 6f 00 00 | 1c 01 06 52 00 30 20 2a |ble Do..|...R.0 *|
|00000100| 20 20 20 20 20 20 20 20 | 20 20 54 64 20 53 74 61 |        |  Td Sta|
|00000110| 72 73 20 31 20 56 31 2e | 30 20 20 20 20 20 20 20 |rs 1 V1.|0       |
|00000120| 20 20 20 2a 20 54 64 20 | 50 6c 61 6e 65 73 00 00 |   * Td |Planes..|
|00000130| 20 01 06 52 00 38 20 2a | 20 20 20 20 20 20 57 72 | ..R.8 *|      Wr|
|00000140| 69 74 74 65 6e 20 62 79 | 20 43 68 72 69 73 20 48 |itten by| Chris H|
|00000150| 6f 64 67 65 73 20 20 20 | 20 20 20 2a 20 54 64 20 |odges   |   * Td |
|00000160| 41 63 63 65 6c 65 72 61 | 74 65 20 4f 66 66 00 00 |Accelera|te Off..|
|00000170| 1d 01 06 52 00 32 20 2a | 20 20 20 20 20 20 20 20 |...R.2 *|        |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 2a 20 54 64 20 |        |   * Td |
|000001a0| 47 72 61 76 69 74 79 20 | 00 00 1b 01 06 52 00 2e |Gravity |.....R..|
|000001b0| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|000001c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001d0| 2a 2a 2a 2a 2a 2a 20 54 | 64 20 49 6e 69 74 00 00 |****** T|d Init..|
|000001e0| 11 01 06 52 00 1a 20 20 | 20 20 20 20 20 20 20 20 |...R..  |        |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000200| 00 00 17 01 06 52 00 26 | 20 52 65 6d 6f 76 65 20 |.....R.&| Remove |
|00000210| 74 68 65 20 6d 6f 75 73 | 65 70 6f 69 6e 74 65 72 |the mous|epointer|
|00000220| 20 66 72 6f 6d 20 73 63 | 72 65 65 6e 2e 20 00 00 | from sc|reen. ..|
|00000230| 03 01 1d e0 00 00 19 01 | 06 52 00 2a 20 4f 70 65 |........|.R.* Ope|
|00000240| 6e 20 61 20 6e 69 63 65 | 20 6c 69 74 74 6c 65 20 |n a nice| little |
|00000250| 73 63 72 65 65 6e 20 77 | 69 74 68 20 38 20 63 6f |screen w|ith 8 co|
|00000260| 6c 6f 75 72 73 2e 00 00 | 14 01 09 ea 00 3e 00 00 |lours...|.....>..|
|00000270| 00 00 00 5c 00 3e 00 00 | 01 40 00 5c 00 3e 00 00 |...\.>..|.@.\.>..|
|00000280| 01 00 00 5c 00 3e 00 00 | 00 08 00 5c 0c 90 00 00 |...\.>..|...\....|
|00000290| 11 01 14 46 00 54 0d 34 | 00 54 13 dc 00 3e 00 00 |...F.T.4|.T...>..|
|000002a0| 00 00 00 54 13 d2 00 3e | 00 00 00 01 00 54 0b ae |...T...>|.....T..|
|000002b0| 00 00 11 01 06 52 00 1a | 20 4c 6f 61 64 20 61 20 |.....R..| Load a |
|000002c0| 62 61 63 6b 67 72 6f 75 | 6e 64 70 69 63 74 75 72 |backgrou|ndpictur|
|000002d0| 65 2e 00 00 10 01 17 d4 | 00 26 00 15 64 61 74 61 |e.......|.&..data|
|000002e0| 2f 69 6e 74 65 6c 6f 75 | 74 73 69 64 65 2e 69 66 |/intelou|tside.if|
|000002f0| 66 00 00 00 0e 01 06 52 | 00 14 20 53 65 74 20 75 |f......R|.. Set u|
|00000300| 70 20 74 68 65 20 70 61 | 6c 65 74 74 65 2e 00 00 |p the pa|lette...|
|00000310| 28 01 06 52 00 48 20 57 | 65 20 75 73 65 20 74 68 |(..R.H W|e use th|
|00000320| 65 20 6c 61 73 74 20 74 | 77 6f 20 70 6c 61 6e 65 |e last t|wo plane|
|00000330| 73 2c 20 73 6f 20 77 65 | 20 6e 65 65 64 20 74 68 |s, so we| need th|
|00000340| 65 20 63 6f 6c 6f 75 72 | 73 20 32 2c 34 2c 36 20 |e colour|s 2,4,6 |
|00000350| 66 6f 72 20 74 68 65 20 | 73 74 61 72 73 2e 00 00 |for the |stars...|
|00000360| 22 01 0c fc 00 3e 00 00 | 00 00 00 5c 00 36 00 00 |"....>..|...\.6..|
|00000370| 00 20 00 5c 00 36 00 00 | 04 44 00 5c 00 36 00 00 |. .\.6..|.D.\.6..|
|00000380| 04 94 00 5c 00 36 00 00 | 09 99 00 5c 00 36 00 00 |...\.6..|...\.6..|
|00000390| 09 d9 00 5c 00 36 00 00 | 0d dd 00 5c 00 36 00 00 |...\.6..|...\.6..|
|000003a0| 0d fd 00 00 1b 01 06 52 | 00 2e 20 45 6e 61 62 6c |.......R|.. Enabl|
|000003b0| 65 20 44 6f 75 62 6c 65 | 20 42 75 66 66 65 72 69 |e Double| Bufferi|
|000003c0| 6e 67 20 74 6f 20 61 76 | 6f 69 64 20 66 6c 69 63 |ng to av|oid flic|
|000003d0| 6b 65 72 69 6e 67 2e 20 | 00 00 03 01 01 2c 00 00 |kering. |.....,..|
|000003e0| 06 01 0e 2c 00 3e 00 00 | 00 00 00 00 19 01 06 52 |...,.>..|.......R|
|000003f0| 00 2a 20 4c 69 6d 69 74 | 20 74 68 65 20 6d 6f 75 |.* Limit| the mou|
|00000400| 73 65 20 74 6f 20 74 68 | 65 20 73 63 72 65 65 6e |se to th|e screen|
|00000410| 20 62 6f 75 6e 64 61 72 | 69 65 73 2e 00 00 05 01 | boundar|ies.....|
|00000420| 0c ca 00 54 1e 54 00 00 | 29 01 06 52 00 4a 20 44 |...T.T..|)..R.J D|
|00000430| 65 66 69 6e 65 20 61 20 | 62 61 6e 6b 20 66 6f 72 |efine a |bank for|
|00000440| 20 74 68 65 20 73 74 61 | 72 73 2e 20 49 66 20 79 | the sta|rs. If y|
|00000450| 6f 75 20 68 61 76 65 20 | 61 20 74 75 72 62 6f 20 |ou have |a turbo |
|00000460| 62 6f 61 72 64 2c 20 79 | 6f 75 20 63 61 6e 20 69 |board, y|ou can i|
|00000470| 6e 63 72 65 61 73 65 20 | 00 00 0f 01 06 52 00 16 |ncrease |.....R..|
|00000480| 20 74 68 65 20 61 6d 6f | 75 6e 74 20 6f 66 20 73 | the amo|unt of s|
|00000490| 74 61 72 73 2e 20 00 00 | 0c 01 00 4e 08 00 0a 7e |tars. ..|...N...~|
|000004a0| 00 3e 00 00 00 09 00 5c | 00 3e 00 00 00 64 00 00 |.>.....\|.>...d..|
|000004b0| 14 01 06 52 00 20 20 4c | 69 6d 69 74 20 74 68 65 |...R.  L|imit the|
|000004c0| 20 73 74 61 72 73 20 74 | 6f 20 74 68 65 20 73 63 | stars t|o the sc|
|000004d0| 72 65 65 6e 2e 20 00 00 | 05 01 00 4e 08 00 0a 94 |reen. ..|...N....|
|000004e0| 00 00 18 01 06 52 00 28 | 20 53 65 74 20 74 68 65 |.....R.(| Set the|
|000004f0| 20 70 6c 61 6e 65 73 20 | 66 6f 72 20 75 73 61 67 | planes |for usag|
|00000500| 65 20 77 69 74 68 20 54 | 64 20 53 74 61 72 73 2e |e with T|d Stars.|
|00000510| 00 00 0c 01 00 4e 08 00 | 0b cc 00 3e 00 00 00 01 |.....N..|...>....|
|00000520| 00 5c 00 3e 00 00 00 02 | 00 00 22 01 06 52 00 3c |.\.>....|.."..R.<|
|00000530| 20 54 75 72 6e 20 6f 66 | 66 20 74 68 65 20 61 63 | Turn of|f the ac|
|00000540| 63 65 6c 65 72 61 74 69 | 6f 6e 2e 20 54 65 73 74 |celerati|on. Test|
|00000550| 20 69 74 20 61 6c 73 6f | 20 77 69 74 68 20 61 63 | it also| with ac|
|00000560| 63 65 6c 65 72 61 74 69 | 6f 6e 2e 20 00 00 05 01 |celerati|on. ....|
|00000570| 00 4e 08 00 0b ae 00 00 | 19 01 06 52 00 2a 20 53 |.N......|...R.* S|
|00000580| 65 74 20 74 68 65 20 67 | 72 61 76 69 74 79 20 74 |et the g|ravity t|
|00000590| 6f 20 30 2c 35 2e 20 54 | 72 79 20 6f 74 68 65 72 |o 0,5. T|ry other|
|000005a0| 20 76 61 6c 75 65 73 2e | 00 00 0c 01 00 4e 08 00 | values.|.....N..|
|000005b0| 0b 78 00 3e 00 00 00 00 | 00 5c 00 3e 00 00 00 05 |.x.>....|.\.>....|
|000005c0| 00 00 15 01 06 52 00 22 | 20 4e 6f 77 20 61 74 20 |.....R."| Now at |
|000005d0| 6c 61 73 74 2c 20 69 6e | 69 74 69 61 74 65 20 74 |last, in|itiate t|
|000005e0| 68 65 20 73 74 61 72 73 | 2e 20 00 00 05 01 00 4e |he stars|. .....N|
|000005f0| 08 00 0a d0 00 00 26 01 | 06 52 00 44 20 4d 61 69 |......&.|.R.D Mai|
|00000600| 6e 20 6c 6f 6f 70 3a 20 | 52 65 70 65 61 74 20 75 |n loop: |Repeat u|
|00000610| 6e 74 69 6c 20 74 68 65 | 20 75 73 65 72 20 70 72 |ntil the| user pr|
|00000620| 65 73 73 65 73 20 61 20 | 6b 65 79 20 6f 72 20 61 |esses a |key or a|
|00000630| 20 6d 6f 75 73 65 20 62 | 75 74 74 6f 6e 2e 20 20 | mouse b|utton.  |
|00000640| 00 00 04 01 02 50 00 00 | 00 00 16 03 06 52 00 24 |.....P..|.....R.$|
|00000650| 20 53 79 6e 63 68 72 6f | 6e 69 73 69 7a 65 20 77 | Synchro|nisize w|
|00000660| 69 74 68 20 74 68 65 20 | 72 61 73 74 65 72 20 62 |ith the |raster b|
|00000670| 65 61 6d 2e 00 00 03 03 | 0c ca 00 00 15 03 00 06 |eam.....|........|
|00000680| 00 00 02 00 78 6d ff a2 | 0c 1e 00 74 1e 16 00 7c |....xm..|...t...||
|00000690| 00 54 00 06 00 00 02 00 | 79 6d ff a2 0c 38 00 74 |.T......|ym...8.t|
|000006a0| 1e 24 00 7c 00 00 0e 03 | 00 4e 08 00 0a b8 00 06 |.$.|....|.N......|
|000006b0| 00 00 02 00 78 6d 00 5c | 00 06 00 00 02 00 79 6d |....xm.\|......ym|
|000006c0| 00 00 0e 03 06 52 00 14 | 20 44 72 61 77 20 61 6c |.....R..| Draw al|
|000006d0| 6c 20 74 68 65 20 73 74 | 61 72 73 2e 00 00 05 03 |l the st|ars.....|
|000006e0| 00 4e 08 00 0a fc 00 00 | 0d 03 06 52 00 12 20 53 |.N......|...R.. S|
|000006f0| 77 61 70 20 74 68 65 20 | 73 63 72 65 65 6e 73 2e |wap the |screens.|
|00000700| 00 00 03 03 0a e2 00 00 | 11 01 02 5c 00 f2 ff a2 |........|...\....|
|00000710| 05 52 00 74 00 3e 00 00 | 00 1b 00 7c ff 4c 1e 32 |.R.t.>..|...|.L.2|
|00000720| ff 66 00 3e 00 00 00 00 | 00 00 06 01 0a 04 00 3e |.f.>....|.......>|
|00000730| 00 00 00 00 00 00 03 01 | 03 b6 00 00 41 6d 42 73 |........|....AmBs|
|00000740| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+